home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_3058_eTTCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  515 b   |  17 lines
  1. global gTTKPresent, gTTKName
  2. repeat with a = the number of windows down to 1
  3. if the owner of window a = "TextXWindow" then close window a
  4. end repeat
  5. if gTTKPresent = "true" then
  6. get the stacksinuse
  7. put the itemdelimiter into id
  8. set the itemdelimiter to ":"
  9. put "false" into b
  10. repeat with x = 1 to the number of lines in it
  11. put (the last item of line x of it = gTTKName) into b
  12. if b then exit repeat
  13. end repeat
  14. if not b then start using stack GetStackPath()&gTTKName
  15. set the itemdelimiter to id
  16. installTTools
  17. end if